home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dskut / disktime.zip / RESULTS.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-07  |  1KB  |  54 lines
  1. Procedure Results(Var Elasped:Real;Var Seeks:Integer);
  2. {
  3.    This procedure prints the average seek access time of specified hard disk
  4.  
  5.    Input        Elapsed  Real elasped seconds past midnight
  6.  
  7.                 Seeks    Seeks performed by the test
  8.  
  9.    Strategy     (1)      Fix Elapsed in case clock overflowed at midnight
  10.  
  11.                 (2)      Calculate SeekTime in milliseconds
  12.  
  13.                 (3)      Print results
  14.  
  15. }
  16. Var
  17.    Digits:Integer;
  18.    SeekTime:Real;
  19. Begin
  20.      If Elapsed<0 then Elapsed:=86400.+Elapsed;
  21.  
  22.      SeekTime:=1000.*Elapsed/Seeks;
  23.  
  24.      Writeln;
  25.      Write(' ...performed ');
  26.      NormVideo;
  27.      Write(Seeks);
  28.      LowVideo;
  29.      Write(' seeks in ');
  30.      NormVideo;
  31.      Write(Elapsed:4:0);
  32.      LowVideo;
  33.      Writeln(' seconds');
  34.      Writeln;
  35.  
  36.      Writeln('  Average Access (Milliseconds)');
  37.      Writeln;
  38.  
  39.      NormVideo;
  40.      Write('    << Your >>');
  41.      LowVideo;
  42.      Write(' disk --> ');
  43.      NormVideo;
  44.      Writeln(SeekTime:5:1);
  45.  
  46.      LowVideo;
  47.      Writeln;
  48.  
  49.      Writeln('    IBM-PC/XT  disk -->  93.3  (November 1985 Byte)');
  50.      Writeln('    IBM-PC/AT  disk -->  73.3  (November 1985 Byte)');
  51.      Writeln('    IBM-PC/AT  disk -->  38.0  (measured)');
  52.  
  53. End;
  54.